home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
cluster2.zip
/
SOURCE.ZIP
/
PB3BOXES.HDR
< prev
next >
Wrap
Text File
|
1996-07-06
|
4KB
|
91 lines
DEFINT a-z
'+-----------------------------------------------------------------+
'| This component of PB3BOXES is Copyright Nathan C. Durland III |
'| All rights reserved |
'+-----------------------------------------------------------------+
%MaxBorders = 4
%True = -1
%False = NOT(%True)
%PgDn = 255 + 81 : %PgUp = 255 + 73
%HomeKey = 255 + 71 : %EndKey = 255 + 79
%UpArrow = 255 + 72 : %DownArrow = 255 + 80
%LeftArrow = 255 + 75 : %RightArrow = 255 + 77
%InsKey = 255 + 82 : %DelKey = 255 + 83
%HelpKey = 255 + 35 : %CtrlIns = 255 + 146
%CtrlDel = 225 + 147
%Enter = 13 : %Cr = 27
%Space = 32 : %Esc = 27
%F1 = 255 + 59
%FLAGS = 0 : %AX = 1
%BX = 2 : %CX = 3
%DX = 4 : %SI = 5
%DI = 6 : %BP = 7
%DS = 8 : %ES = 9
%Black = 0 : %Grey = 8
%Blue = 1 : %BrightBlue = 9
%Green = 2 : %BrightGreen = 10
%Cyan = 3 : %BrightCyan = 11
%Red = 4 : %BrightRed = 12
%Magenta = 5 : %BrightMagenta = 13
%Brown = 6 : %Yellow = 14
%White = 7 : %BrightWhite = 15
DECLARE SUB BoxInit(BYVAL INTEGER)
DECLARE SUB MakeBox(BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB RemoveBox()
DECLARE SUB ClearBox(BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB PrtBox(BYVAL INTEGER, BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
DECLARE SUB PrtEOL(BYVAL INTEGER, BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
DECLARE SUB NukeBoxes(BYVAL INTEGER)
DECLARE SUB SetBoxColor(BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB BoxTitle(BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
DECLARE SUB ScrollBox(BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB SetViewText(BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB ReturnAttr(BYVAL INTEGER, INTEGER, INTEGER)
DECLARE SUB VerticalMenu(STRING ARRAY, INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, BYVAL INTEGER, BYVAL DWORD)
DECLARE SUB TagMenu(STRING ARRAY, STRING, BYVAL INTEGER, _
BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, BYVAL DWORD)
DECLARE SUB ScrollList(BYVAL INTEGER, STRING ARRAY, BYVAL INTEGER)
DECLARE FUNCTION MakeAttr%(INTEGER, INTEGER)
DECLARE FUNCTION Msgbox$(BYVAL STRING, BYVAL STRING, BYVAL INTEGER)
'
'-----------------------------------------------------------------
' These subs are the original routines from SCRNUNIT.BAS
'-----------------------------------------------------------------
'
DECLARE SUB QSAVE(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, STRING)
DECLARE SUB QREST(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, STRING)
DECLARE SUB QBOX(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB QFILL(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB QATTR(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB QPRINT(BYVAL INTEGER, BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
DECLARE SUB QPRINTC(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
DECLARE SUB SetBlink(BYVAL INTEGER)
DECLARE SUB PgCopy(BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB ScrollUp(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB ScrollDown(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB LineEdit(BYVAL INTEGER, BYVAL INTEGER, STRING, _
BYVAL INTEGER, BYVAL STRING, BYVAL STRING, _
INTEGER, BYVAL INTEGER, BYVAL INTEGER)
DECLARE SUB LineInput(STRING, BYVAL INTEGER)
PUBLIC CurrentBox%, BoxParms%(), BorderText$(), SaveText$(), MaxBoxes%
PUBLIC EntryUpperOnly%, EntryNoQuotes%